0 REM SAVE"@:[194]  KLANG-TEST  [194]",12
1 A(0)=0:FA(1)=11:FA(2)=12:FA(3)=15:FA(4)=10:FA(5)=1:FA(6)=10:FA(7)=15:FA(8)=12
2 FA(9)=11:DA=0:RE=25:POKE53250,25:ZF=0
3 LW=PEEK(186):AS=0:FB=0:POKE53280,0:POKE53281,0
9 IFZ=0THENPRINT"[144][147]";:Z=1:GOTO20
10 IFZ=1THENZ=2:POKE53265,27:GOSUB1000:GOTO90
12 IFZ=2THENZ=3:LOAD"[194] 01.*",LW,1
13 IFZ=3THENZ=4:SYS49152:GOTO400
14 IFZ=4THENSYS828,1:GOTO400
15 SYS828,2:GOTO400
20 POKE53265,11:FORA=49154TO49317:READI:POKEA,I:NEXT
21 V=53248:POKE2040,15:FORN=0TO62:READQ:POKE960+N,Q:NEXT
22 FORN=0TO62:READQ:POKE16320+N,Q:NEXT:POKEV+2,25:POKEV+3,0:POKE2041,255
23 POKEV+0,35:POKEV+1,141:POKEV+16,1:POKEV+40,1
24 POKEV+28,0:POKEV+23,0:POKEV+29,0
25 LOAD"[194] 02.*",LW,1:REM BILD
26 END
90 :
93 SYS49154
94 LOAD"[194] 03*",LW,1
95 END
200 :
201 DATA173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
220 DATA4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
240 DATA40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
260 DATA114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
280 DATA173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
300 DATA24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
320 DATA162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
340 DATA142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
360 DATA192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
380 DATA252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
390 DATA254,132,253,96
400 :
401 GETA$:IFA$=""THENGOSUB500:GOSUB600
410 IFA$=CHR$(133)THENPOKEV+3,0:POKEV+1,141:SYS828,0:LOAD"[194] 03.*",LW,1
411 IFA$=CHR$(134)THENPOKEV+3,0:POKEV+1,166:SYS828,0:LOAD"[194] 04.*",LW,1
413 IFA$=CHR$(135)THENPOKEV+3,0:POKEV+1,191:SYS828,0:LOAD"[194] 05.*",LW,1
414 IFA$=CHR$(136)THENPOKEV+3,0:POKEV+1,216:SYS828,0:LOAD"[194] 06.*",LW,1
415 IFA$=" "ANDAS=0THENAS=1:SYS828,0:GOTO400
416 IFA$=" "ANDAS=1THENAS=0:SYS828,1:GOTO400
417 IFA$="S"THENAS=0:SYS828,2
499 GOTO400
500 :
501 FB=FB+1:IFFB>9THENFB=0
502 POKEV+39,FA(FB):RETURN
600 :
610 IFDA<51THENPOKEV+3,DA:DA=DA+1:RETURN
615 IFRE<90THENPOKEV+2,RE:RE=RE+4:RETURN
620 ZF=ZF+0.05:POKEV+2,90+(68*SIN(2*ZF))
629 RETURN
1000 PRINT"[144][147]";:POKEV+21,2:POKEV+39,0
1001 PRINT"              WELLE:ERDBALL":POKEV+2,175:POKEV+3,75
1002 PRINT"                KLANGTEST"
1003 PRINT"                [163][163][163][163][163][163][163][163][163]"
1004 PRINT"[144]              DANK & GRUSS:"
1005 PRINT"AIRFISH,ANGEL,BUGJAM,COUNTZERO,COURAGE,"
1006 PRINT"DECOMPRACID,DOCBACARDI,DR.FUTURE,EXILE,"
1007 PRINT"ETERNALIZER,FINN,FLOYD,FRANKY,GALAKTUS,"
1008 PRINT" GROEPAZ,HOILD,JESUS,JTR,JSL,MACGYVER,"
1009 PRINT"MARTIN,MRMUSEUM,MYSTERY,PIXEL23,POISON,"
1010 PRINT"ROLAND,SCORPE,SEXTON,STREETUFF,TOMZET,"
1011 PRINT"    VOGUE,WOMANA,YOGIBEAR,ZEDJAGO      "
1012 PRINT"  UND ALLE ANDEREN VISION-BESUCHER !";:POKE53265,27
1040 FORZA=0TO500:NEXT:FORZA=0TO399:POKE55896+ZA,15:FORZB=0TO10:NEXT:NEXT
1041 FORZA=0TO1500:NEXT:POKE53265,11:POKEV+21,3:PRINT"[144][147]";
1042 POKEV+2,0:POKEV+3,0:POKEV+40,14:POKE53265,27:RETURN
50000 :
50001 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
50002 DATA0,0,0,0,56,0,0,198,0,1,15,0,2,31,128,2
50003 DATA63,128,2,63,128,2,63,128,1,31,0,0,206,0,0,56
50004 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
50005 :
50010 DATA0,255,0,3,255,192,7,128,224,13,128,48,25,128,24
50011 DATA25,131,24,49,135,140,49,135,140,49,207,140,49,223,140,49
50012 DATA251,140,49,241,140,49,225,140,24,193,152,24,1,152,12,1
50013 DATA176,7,1,224,3,255,192,0,255,0,0,0,0,0,0,0